{***************************************************************
    SpyGestion  Copyright (C) 2008 Christophe KOALI <nature2gas@gmail.com>
    
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
    
****************************************************************}
unit modInitGrille;

interface

uses AdvGrid, Classes, gnugettext;

procedure migInitGrilleRapportEsp(Grille: TAdvStringGrid; PTVersion, DefDesActived: boolean);
procedure migInitGrilleSystemStyle(Grille: TAdvStringGrid);
procedure migInitGrilleSondage(Grille: TAdvStringGrid);
procedure migInitGrilleMsgList(Grille: TAdvStringGrid);
procedure migInitGrilleFlotteList(Grille: TAdvStringGrid);
procedure migInitGrilleVaisseaux(Grille: TAdvStringGrid);
procedure migInitStatsGrille(Grille: TAdvStringGrid);

procedure migInitRessourcesView(Grille: TAdvStringGrid);
procedure migInitElementsConstruction(Grille: TAdvStringGrid);
procedure migInitActionScriptView(Grille: TAdvStringGrid);
procedure migInitChampDeRuineGrille(Grille: TAdvStringGrid);


procedure migInitListeAttaque(Grille: TAdvStringGrid);

procedure migInitActionScriptAdvView(Grille: TAdvStringGrid);
procedure migInitActionScriptGIDView(Grille: TAdvStringGrid);

implementation


procedure migInitActionScriptGIDView(Grille: TAdvStringGrid);
begin

    Grille.Cells[0, 0] := _('Nom');

    Grille.Cells[3, 0] := _('Niveau');

    Grille.Cells[1, 0] := _('Métal');
    Grille.Cells[2, 0] := _('Cristal');
    Grille.Cells[4, 0] := _('Deutérium');
    Grille.Cells[5, 0] := _('Durée');

    Grille.Cells[6, 0] := _('Disponible');


end;



procedure migInitActionScriptAdvView(Grille: TAdvStringGrid);
begin

    Grille.Cells[0, 0] := _('Nom');

    Grille.Cells[1, 0] := _('Niveau');


    Grille.Cells[2, 0] := _('Quantité');


    Grille.Cells[3, 0] := _('Lancé à');
    Grille.Cells[4, 0] := _('Terminé à');
    Grille.Cells[5, 0] := _('Status');

    Grille.Cells[6, 0] := _('Divers');


end;


procedure migInitActionScriptView(Grille: TAdvStringGrid);
begin

    Grille.Cells[0, 0] := _('Nom');

    Grille.Cells[1, 0] := _('Status');
    Grille.Cells[2, 0] := _('Quantité');
    Grille.Cells[3, 0] := _('Niveau');

    Grille.Cells[4, 0] := _('Effectué');

end;

procedure migInitRessourcesView(Grille: TAdvStringGrid);
var i: integer;
begin

    Grille.Cells[0, 0] := _('Nom');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 150;


    Grille.Cells[1, 0] := _('Métal');
    Grille.CellProperties[1, 0].Alignment := taRightJustify;
    Grille.ColWidths[1] := 60;


    Grille.Cells[2, 0] := _('Cristal');
    Grille.CellProperties[2, 0].Alignment := taRightJustify;
    Grille.ColWidths[2] := 60;


    Grille.Cells[3, 0] := _('Deut.');
    Grille.CellProperties[3, 0].Alignment := taRightJustify;
    Grille.ColWidths[3] := 60;


    Grille.Cells[4, 0] := _('Energie');
    Grille.CellProperties[4, 0].Alignment := taCenter;
    Grille.ColWidths[4] := 80;


    Grille.Cells[5, 0] := _('Activité');
    Grille.CellProperties[5, 0].Alignment := taCenter;
    Grille.ColWidths[5] := 60;


    Grille.Cells[6, 0] := _('Optimisation');
    Grille.CellProperties[6, 0].Alignment := taCenter;
    Grille.ColWidths[6] := 80;
end;

procedure migInitElementsConstruction(Grille: TAdvStringGrid);
var i: integer;
begin


    Grille.Cells[0, 0] := _('Nom');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 150;


    Grille.Cells[1, 0] := _('Niv.');
    Grille.CellProperties[1, 0].Alignment := taRightJustify;
    Grille.ColWidths[1] := 40;


    Grille.Cells[2, 0] := _('Métal');
    Grille.CellProperties[2, 0].Alignment := taRightJustify;
    Grille.ColWidths[2] := 70;


    Grille.Cells[3, 0] := _('Cristal');
    Grille.CellProperties[3, 0].Alignment := taRightJustify;
    Grille.ColWidths[3] := Grille.ColWidths[2];


    Grille.Cells[4, 0] := _('Deut.');
    Grille.CellProperties[4, 0].Alignment := taRightJustify;
    Grille.ColWidths[4] := Grille.ColWidths[2];


    Grille.Cells[5, 0] := _('Durée');
    Grille.CellProperties[5, 0].Alignment := taCenter;
    Grille.ColWidths[5] := 170;


    Grille.Cells[6, 0] := _('Disponibilité');
    Grille.CellProperties[6, 0].Alignment := taCenter;
    Grille.ColWidths[6] := 170;


    Grille.Cells[7, 0] := _('Optimisation');
    Grille.CellProperties[7, 0].Alignment := taCenter;
    Grille.ColWidths[7] := 170;


end;


procedure migInitStatsGrille(Grille: TAdvStringGrid);
var i: integer;
begin
    Grille.Cells[0, 0] := _('Joueur');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 120;
    i := 1;

    // Place - Nombre de points du joueur
    Grille.Cells[i, 0] := _('Place');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 38;
    Inc(i);


    // Nombre de points du joueur
    Grille.Cells[i, 0] := _('Points');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 70;
    Inc(i);



    // Place - Nombre de points de flotte du joueur
    Grille.Cells[i, 0] := _('Place');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 38;
    Inc(i);

    // Nombre de points de flotte du joueur
    Grille.Cells[i, 0] := _('Flotte');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 70;
    Inc(i);


    
    // Place - Nombre de points de flotte du joueur
    Grille.Cells[i, 0] := _('Place');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 38;
    Inc(i);

    // Nombre de points de recherche du joueur
    Grille.Cells[i, 0] := _('Recherche');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 70;
    Inc(i);

    (*
    Grille.Cells[i, 0] := _('Alliance');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);
              *)
    
end;

procedure migInitGrilleVaisseaux(Grille: TAdvStringGrid);
var i: integer;
begin

    // Nom du vaisseau
    Grille.Cells[0, 0] := _('Nom');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 130;
    i := 1;

    // Quantité de vaisseaux
    Grille.Cells[i, 0] := _('Qt');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 48;
    Inc(i);

    // Quantité de vaisseaux
    Grille.Cells[i, 0] := _('Max');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 40;
    Inc(i);
end;




procedure migInitGrilleFlotteList(Grille: TAdvStringGrid);
var i: integer;
begin

    // Id
    Grille.Cells[0, 0] := _('Id');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 30;
    i := 1;

    // Arrivee
    Grille.Cells[i, 0] := _('Restant');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);

    // Vaisseaux
    Grille.Cells[i, 0] := _('Vaisseaux');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 200;
    Inc(i);

    
    // Depart
    Grille.Cells[i, 0] := _('Depart');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    // Ordre
    Grille.Cells[i, 0] := _('Ordre');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);


    // Direction
    Grille.Cells[i, 0] := _('Sens');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 40;
    Inc(i);


    // Arrivee durée
    Grille.Cells[i, 0] := _('Arrivée');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);
end;

procedure migInitGrilleMsgList(Grille: TAdvStringGrid);
var i: integer;
begin


    // Depart
    Grille.Cells[0, 0] := _('Depart');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 65;
    i := 1;

    // Arrivee
    Grille.Cells[i, 0] := _('Arrivée');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 65;
    Inc(i);

    // Ordre
    Grille.Cells[i, 0] := _('Ordre');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    // Vaisseaux
    Grille.Cells[i, 0] := _('Vaisseaux');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 200;
    Inc(i);

    // Message entier
    Grille.Cells[i, 0] := _('Message entier');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 450;
    Inc(i);

end;



procedure migInitListeAttaque(Grille: TAdvStringGrid);
var i: integer;
begin


    // id
    Grille.Cells[0, 0] := _('id');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 25;

    i := 1;


    // Status
    Grille.Cells[i, 0] := _('Effectué');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 80;
    Inc(i);


    // Départ
    Grille.Cells[i, 0] := _('Départ');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 65;
    Inc(i);

    Grille.Cells[i, 0] := _('Type');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 75;
    Inc(i);

    
    Grille.Cells[i, 0] := _('Cible');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 65;
    Inc(i);

    
    Grille.Cells[i, 0] := _('Vaisseaux');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);



    Grille.Cells[i, 0] := _('GT Min');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);

    Grille.Cells[i, 0] := _('SDef Max');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 50;
    Inc(i);


    Grille.Cells[i, 0] := _('Recl Max');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 50;
    Inc(i);

    
    Grille.Cells[i, 0] := _('Sondage');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 65;
    Inc(i);

    Grille.Cells[i, 0] := _('Etat');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);

end;



procedure migInitGrilleSondage(Grille: TAdvStringGrid);
var i: integer;
begin

    // Position de la planète (que son numéro)
    Grille.Cells[0, 0] := _('Coord');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 65;

    i := 1;


    // Pseudo du joueur
    Grille.Cells[i, 0] := _('Joueur');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);

    // Nombre de points (classement entre parenthèses)
    Grille.Cells[i, 0] := _('Points');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 120;
    Inc(i);

    // Nombre de points de flotte (classement entre parenthèse)
    Grille.Cells[i, 0] := _('Flotte');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 120;
    Inc(i);


    Grille.Cells[i, 0] := _('Alliance');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 100;
    Inc(i);

    // Nombre de sonde
    Grille.Cells[i, 0] := _('Nb');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 26;
    Inc(i);


    // Date du sondage effectué
    Grille.Cells[i, 0] := _('Sondé');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);


    // Date du sondage effectué
    Grille.Cells[i, 0] := _('Dernier sondage');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 160;
    Inc(i);


    // Score de défense
    Grille.Cells[i, 0] := _('SDef');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);


    // Nombre de recycleur
    Grille.Cells[i, 0] := _('Recycl.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 50;
    Inc(i);


end;



procedure migInitGrilleSystemStyle(Grille: TAdvStringGrid);
var i: integer;
begin


    // Position de la planète (que son numéro)
    Grille.Cells[0, 0] := _('Pos');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 26;
    // Nom de la planète
//    Grille.Cells[1, 0] := 'Nom';
//    Grille.CellProperties[1, 0].Alignment := taLeftJustify;

    i := 1;


    //Grille.Cells[i, 0] := 'Joueur';
    //Grille.CellProperties[i, 0].Alignment := taCenter;
    //Inc(i);


    // Pseudo du joueur
    Grille.Cells[i, 0] := _('Joueur');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);

    //Grille.Cells[1, 0] := 'Classement';
    //Grille.CellProperties[1, 0].Alignment := taRightJustify;


    // Nombre de points (classement entre parenthèses)
    Grille.Cells[i, 0] := _('Points');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 120;
    Inc(i);

    
    // Nombre de points de flotte (classement entre parenthèse)
    Grille.Cells[i, 0] := _('Flotte');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 120;
    Inc(i);


    Grille.Cells[i, 0] := _('Alliance');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 100;
    Inc(i);


    // Dernier sondage
    Grille.Cells[i, 0] := _('Sondage');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);


    // Dernière attaque
    Grille.Cells[i, 0] := _('Attaque');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);


    Grille.Cells[i, 0] := _('Métal');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    Grille.Cells[i, 0] := _('Cristal');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    Grille.Cells[i, 0] := _('Deut.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);


    Grille.Cells[i, 0] := _('Def.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 35;
    Inc(i);

    Grille.Cells[i, 0] := _('Flot.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 35;
    Inc(i);

    Grille.Cells[i, 0] := _('Validité');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);

end;

procedure migInitChampDeRuineGrille(Grille: TAdvStringGrid);
var i: integer;
begin
    Grille.Cells[0, 0] := _('Coord');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 68;
    i := 1;

    // Validité
    Grille.Cells[i, 0] := _('Validité');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 100;
    Inc(i);

    // Joueur
    Grille.Cells[i, 0] := _('Joueur');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 130;
    Inc(i);

    // Alliance
    Grille.Cells[i, 0] := _('Alliance');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 100;
    Inc(i);


    Grille.Cells[i, 0] := _('Métal');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 70;
    Inc(i);

    Grille.Cells[i, 0] := _('Cristal');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 70;
    Inc(i);


    Grille.Cells[i, 0] := _('Recycl.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

end;

procedure migInitGrilleRapportEsp(Grille: TAdvStringGrid; PTVersion, DefDesActived: boolean);
var i: integer;
begin


    // Position de la planète
    Grille.Cells[0, 0] := _('Position');
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 65;
    // Nom de la planète
//    Grille.Cells[1, 0] := 'Nom';
//    Grille.CellProperties[1, 0].Alignment := taLeftJustify;

    i := 1;


    //Grille.Cells[i, 0] := 'Joueur';
    //Grille.CellProperties[i, 0].Alignment := taCenter;
    //Inc(i);


    // Nombre de points du joueur
    Grille.Cells[i, 0] := _('C.Esp');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);

    //Grille.Cells[1, 0] := 'Classement';
    //Grille.CellProperties[1, 0].Alignment := taRightJustify;


    // Nombre de fois que cette planète a été sondé
    Grille.Cells[i, 0] := _('Sd.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 30;
    Inc(i);

    // Nombre de fois que cette planète a été attaqué
    Grille.Cells[i, 0] := _('At.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 30;
    Inc(i);

    Grille.Cells[i, 0] := _('Validité');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 90;
    Inc(i);

    Grille.Cells[i, 0] := _('Attaque');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 90;
    Inc(i);



    // Nombre de GT pour récupérer toute les ressources possible
    //if (FCurrentProfil <> nil) and FCurrentProfil.VersionPT then
    if PTVersion then begin
       Grille.Cells[i, 0] := _('PT')
    end else
       Grille.Cells[i, 0] := _('GT');

    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 50;
    Inc(i);


    Grille.Cells[i, 0] := _('Métal');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    Grille.Cells[i, 0] := _('Cristal');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    Grille.Cells[i, 0] := _('Deut.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);


 //   if chkDesactiveColonneDef.Checked = false then begin
    if DefDesActived = false then begin
       Grille.Cells[i, 0] := _('Def.');
       Grille.CellProperties[i, 0].Alignment := taCenter;
       Grille.ColWidths[i] := 35;
       Inc(i);
    end;


    Grille.Cells[i, 0] := _('SDef');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);

    Grille.Cells[i, 0] := _('Flot.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 35;
    Inc(i);

    Grille.Cells[i, 0] := _('Recycl.');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 50;
    Inc(i);

    Grille.Cells[i, 0] := _('Joueur');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 100;
    Inc(i);

    Grille.Cells[i, 0] := _('Points');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

    Grille.Cells[i, 0] := _('Alliance');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 90;
    Inc(i);


    Grille.Cells[i, 0] := _('Distance');
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 60;
    Inc(i);

end;

end.
